
Uses
	Dos,crt;
    
Const
        MAX_PEDIDOS = 200;    
Type
    {$I TipoDeDatos.pas}
    
    {$I ManejoDeArchivos.pas}
    
    {$I ManejoPedidos.pas}

    {$I ManejoReparaciones.pas}

Procedure Posicion();
Var 
    NuevoRepuesto,RepuestoTMP : Repuesto;
    Posicion : Word;
    
Begin
        NuevoRepuesto.Codigo := 200;
        Posicion := BuscarPosicionRepuesto(NuevoRepuesto);
	Writeln('Posicion',Posicion);       
End;

Begin    
    ClrScr;
    Writeln('--------Busqueda de repuestos----------');
    Posicion();
    Readln;
End.
